
DEFINE BUFFER lbld FOR lbld_det .
    
FOR EACH lbld WHERE lbld.lbld_fieldname BEGINS "vd_" NO-LOCK :
    CREATE lbld_det .
    ASSIGN 
        lbld_det.lbld_mod_date = TODAY
        lbld_det.lbld_execname = IF lbld.lbld_execname = "advnmt.p" THEN "adpmmt.p" ELSE lbld.lbld_execname
        lbld_det.lbld_fieldname = "pv_" + SUBSTRING( lbld.lbld_fieldname , 4)
        lbld_det.lbld_mod_userid = lbld.lbld_mod_userid 
        lbld_det.lbld_term = lbld.lbld_term 
    .
END.
